home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr05
/
mswlogo3.zip
/
MSWLOGO.ZIP
/
LOGOLIB.ZIP
/
TRANSFER
< prev
next >
Wrap
Text File
|
1991-08-29
|
383b
|
17 lines
to transfer :transfer.limit :transfer.template :transfer.init
output cascade.2 (ifelse emptyp :transfer.limit ~
[[emptyp ?2]] ~
[se [or emptyp ?2] :transfer.limit]) ~
:transfer.template [] [butfirst ?2] :transfer.init
end
to ?in
output first ?2
end
to ?out
output ?1
end
bury [transfer ?in ?out]